home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mail / PPCuucoders.lha / PPCuucoders / uudecode.c < prev    next >
C/C++ Source or Header  |  1998-02-07  |  6KB  |  241 lines
  1.  
  2. /*
  3.  * uudecode [input]
  4.  *
  5.  * Decode a file encoded with uuencode.  Will extract multiple encoded
  6.  * modules from a single file.    Can deal with most mangled files, including
  7.  * those that have been mangled by common BITNET problems.
  8.  *
  9.  */
  10.  
  11. /* Modified by Andreas R. Kleinert
  12.  *
  13.  * 07.02.98: - powerUP (TM) version, compiled with SAS/C for PPC
  14.  *
  15.  * 31.08.97: - reworked for SAS/C 6.58
  16.  *           - better compiler settings
  17.  *           - ANSI-fied
  18.  *
  19.  * 04.08.94: - first, internal version
  20.  *
  21.  *
  22.  * Original authors:
  23.  *
  24.  * Written by Mark Horton
  25.  * Modified by ajr (Alan J Rosenthatl,flaps@utcsri.UUCP) to use checksums
  26.  * Modified by fnf (Fred Fish,well!fnf) to use Keith Pyle's suggestion for
  27.  * compatibility
  28.  * Modified by bcn (Bryce Nesbitt,ucbvax!cogsci!bryce) to fix a misleading
  29.  * error message on the Amiga port, to fix a bug that prevented decoding
  30.  * certain files, to work even if trailing spaces have been removed from a
  31.  * file, to check the filesize (if present), to add some error checking, to
  32.  * loop for multiple decodes from a single file, and to handle common
  33.  * BITNET mangling.  Kludged around a missing string function in Aztec
  34.  * C. Changed "r" to "rb" and "w" to "wb" for Messy-dos machines
  35.  * (Thanks to Andrew Wylie).
  36.  */
  37.  
  38. #define __USE_SYSBASE
  39.  
  40. #include <stdio.h>
  41. #include <stdlib.h>
  42. #include <string.h>
  43.  
  44. #include <ctype.h>
  45.  
  46. #include <sys/types.h>
  47. #include <sys/stat.h>
  48.  
  49. #include <exec/types.h>
  50.  
  51. #include <proto/exec.h>
  52.  
  53. void decode(FILE *in, FILE *out, UBYTE *dest);
  54.  
  55. UBYTE __aligned version [] = "\0$VER: uudecode 1.0 (7.2.98)";
  56.  
  57. long main(long argc, char **argv)
  58. {
  59.  FILE *in, *out;
  60.  LONG through_loop = 0; /* Dejavu indicator */
  61.  LONG mode;        /* file's mode (from header) */
  62.  LONG filesize;            /* theoretical file size (from header) */
  63.  UBYTE dest[128];
  64.  UBYTE buf[80];
  65.  
  66.     /* A filename can be specified to be uudecoded, or nothing can
  67.     be specified, and the input will come from STDIN */
  68.  
  69.     switch (argc)
  70.     {
  71.     case 1:
  72.     in=stdin;
  73.     break;
  74.  
  75.     case 2:
  76.     if ((in = fopen(argv[1], "r")) == NULL)
  77.         {
  78.         fprintf(stderr, "ERROR: can't find %s\n", argv[1]);
  79.         fprintf(stderr, "USAGE: uudecode [infile]\n");
  80.         exit(20);
  81.         }
  82.     break;
  83.  
  84.     default:
  85.     fprintf(stderr, "USAGE: uudecode [infile]\n");
  86.     exit(0);
  87.     break;
  88.     }
  89.  
  90.     /* Loop through file, searching for headers.  Decode anything with a
  91.        header, complain if there where no headers. */
  92.  
  93. for (;;)
  94. {
  95.     /* search file for header line */
  96.     for (;;)
  97.     {
  98.     if (fgets(buf, sizeof buf, in) == NULL)
  99.         {
  100.         if (!through_loop)
  101.         {
  102.         fprintf(stderr, "ERROR: no `begin' line!\n");
  103.         exit(20);
  104.         }
  105.         else
  106.         {
  107.         exit(0);
  108.         }
  109.         }
  110.     if (strncmp(buf, "begin ", 6) == 0)
  111.         break;
  112.     }
  113.     sscanf(buf, "begin %o %s", &mode, dest);
  114.  
  115.     /* create output file */
  116.     if ((out = fopen(dest, "w")) == NULL)
  117.     {
  118.     fprintf(stderr, "ERROR: can't open output file %s\n", dest);
  119.     exit(20);
  120.     }
  121.  
  122.     decode(in, out, dest);
  123.  
  124.     if (fgets(buf, sizeof buf, in) == NULL || strncmp(buf,"end",3))
  125.     {           /* don't be overly picky about newline ^ */
  126.     fprintf(stderr, "ERROR: no `end' line\n");
  127.     exit(20);
  128.     }
  129.  
  130.     if (!(fgets(buf,sizeof buf,in) == NULL || strncmp(buf,"size ",3)))
  131.     {
  132.     sscanf(buf, "size %ld", &filesize);
  133.     if (ftell(out) != filesize)
  134.         {
  135.         fprintf(stderr, "ERROR: file should have been %ld bytes long but was %ld.\n", filesize, ftell(out));
  136.         exit(20);
  137.         }
  138.     }
  139.     through_loop = 1;
  140. }   /* forever */
  141.  
  142.  exit(0);
  143. }
  144.  
  145. #define SUMSIZE 64
  146. #define DEC(c)  (((c) - ' ') & 077)    /* single character decode */
  147.  
  148. /*
  149.  * Copy from in to out, decoding as you go.
  150.  * If a return or newline is encountered too early in a line, it is
  151.  * assumed that means that some editor has truncated trailing spaces.
  152.  */
  153. void decode(FILE *in, FILE *out, UBYTE *dest)
  154. {
  155.  extern errno;
  156.  
  157.  UBYTE *bp;
  158.  LONG nosum=0;
  159.  LONG j, n, checksum, line;
  160.  UBYTE buf[256];
  161.  
  162.     for (line = 1; ; line++)    /* for each input line */
  163.     {
  164.     if (fgets(buf, sizeof buf, in) == NULL)
  165.         {
  166.         fprintf(stderr, "ERROR: input ended unexpectedly!\n");
  167.         exit(20);
  168.         }
  169.  
  170.     /* Pad end of lines in case some editor truncated trailing
  171.        spaces */
  172.  
  173.     for (n=0;n<79;n++)  /* search for first \r, \n or \000 */
  174.         {
  175.         if (buf[n]=='\176')     /* If BITNET made a twiddle, */
  176.         buf[n]='\136';     /* we make a caret           */
  177.         if (buf[n]=='\r'||buf[n]=='\n'||buf[n]=='\000')
  178.         break;
  179.         }
  180.     for (;n<79;n++)     /* when found, fill rest of line with space */
  181.         {
  182.         buf[n]=' ';
  183.         }
  184.     buf[79]=0;        /* terminate new string */
  185.  
  186.     checksum = 0;
  187.     n = DEC(buf[0]);
  188.     if (n <= 0)
  189.         break;    /* 0 bytes on a line??    Must be the last line */
  190.  
  191.     bp = &buf[1];
  192.  
  193.     /* FOUR input characters go into each THREE output charcters */
  194.  
  195.     while (n >= 4)
  196.         {
  197.         j = DEC(bp[0]) << 2 | DEC(bp[1]) >> 4; putc(j, out); checksum += j;
  198.         j = DEC(bp[1]) << 4 | DEC(bp[2]) >> 2; putc(j, out); checksum += j;
  199.         j = DEC(bp[2]) << 6 | DEC(bp[3]);      putc(j, out); checksum += j;
  200.         checksum = checksum % SUMSIZE;
  201.         bp += 4;
  202.         n -= 3;
  203.         }
  204.  
  205.         j = DEC(bp[0]) << 2 | DEC(bp[1]) >> 4;
  206.         checksum += j;
  207.         if (n >= 1)
  208.             putc(j, out);
  209.         j = DEC(bp[1]) << 4 | DEC(bp[2]) >> 2;
  210.         checksum += j;
  211.         if (n >= 2)
  212.             putc(j, out);
  213.         j = DEC(bp[2]) << 6 | DEC(bp[3]);
  214.         checksum += j;
  215.         if (n >= 3)
  216.             putc(j, out);
  217.         checksum = checksum % SUMSIZE;
  218.         bp += 4;
  219.         n -= 3;
  220.  
  221.      /* Error checking under UNIX??? You must be kidding... */
  222.      /* Check if an error occured while writing to that last line */
  223.     if (errno)
  224.         {
  225.         fprintf(stderr, "ERROR: error writing to %s\n",dest);
  226.         exit(20);
  227.         }
  228.  
  229.     /* The line has been decoded; now check that sum */
  230.  
  231.     nosum |= !isspace(*bp);
  232.     if (nosum)                      /* Is there a checksum at all?? */
  233.         {
  234.         if (checksum != DEC(*bp))   /* Does that checksum match? */
  235.         {
  236.         fprintf(stderr, "ERROR: checksum mismatch decoding %s, line %d.\n",dest, line);
  237.         }
  238.         }    /* sum */
  239.     }    /* line */
  240. }   /* function */
  241.